VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Escalation_Management_Form 
   Caption         =   "Escalation Control Center Management"
   ClientHeight    =   8025
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   14355
   OleObjectBlob   =   "Escalation_Management_Form.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "Escalation_Management_Form"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' ===========================
' Initialisation de la "User Form"
' ===========================
Private Sub UserForm_Initialize()
  Dim i, j, k, n As Integer
  Dim Nb_SR_custo As Integer
  Dim old_custo As String
  
    ' Version
    Escalation_Management_Form.Caption = Escalation_Management_Form.Caption & " Version: " & Def_Version
    
    ' Hide button
    For i = 1 To 30
        Escalation_Management_Form.Controls("CommandButton" & i).Visible = False
        Escalation_Management_Form.Controls("EscalationButton" & i).Visible = False
        Escalation_Management_Form.Controls("CheckBox" & i).Visible = False
        Escalation_Management_Form.Controls("SR_Management_" & i).Visible = False
        Escalation_Management_Form.Controls("SR_Management_" & i).Picture = LoadPicture(Def_Col_ImageDirectory & "Led_Green_On.gif")
    Next i
    
    old_custo = ""
    n = 1
    For k = 2 To Worksheets.Count
        ''Sheets(k).Select
       
        For j = 2 To Sheets(k).Cells(65536, 1).End(xlUp).Row
            If Not Sheets(k).Rows(j).Hidden Then
                If Sheets(k).Cells(j, Def_Col_End_Customer).Value <> Empty Then
                    If Sheets(k).Cells(j, Def_Col_End_Customer).Value <> old_custo Then
                        old_custo = Sheets(k).Cells(j, Def_Col_End_Customer).Value
                        Escalation_Management_Form.Controls("CommandButton" & n).Visible = True
                        Escalation_Management_Form.Controls("CommandButton" & n).Caption = Sheets(k).Cells(j, Def_Col_End_Customer).Value
                                               
                        Nb_SR_custo = 0
                        If Sheets(k).Cells(j, Def_Col_SR_Closed).Value = Empty Then
                            Nb_SR_custo = Nb_SR_custo + 1
                        End If
                        Escalation_Management_Form.Controls("EscalationButton" & n).Visible = True
                        Escalation_Management_Form.Controls("EscalationButton" & n).Caption = "(" & Nb_SR_custo & ")"
                        
                        Escalation_Management_Form.Controls("CheckBox" & n).Visible = True
                        Escalation_Management_Form.Controls("CheckBox" & n).Value = Sheets(k).Cells(j, Def_Col_Escalation_Updated)
                                                    
                        Escalation_Management_Form.Controls("SR_Management_" & n).Visible = True
                        If Sheets(k).Cells(j, Def_Col_Esc_SR_Management).Value Then
                            Escalation_Management_Form.Controls("SR_Management_" & n).Picture = LoadPicture(Def_Col_ImageDirectory & "Led_Red_On.gif")
                        Else
                            Escalation_Management_Form.Controls("SR_Management_" & n).Picture = LoadPicture(Def_Col_ImageDirectory & "Led_Green_On.gif")
                        End If
                        
                        If Sheets(k).Cells(j, Def_Col_Criticality).Value = "C1" Then
                            Escalation_Management_Form.Controls("CommandButton" & n).BackColor = Def_Color_Red
                            Escalation_Management_Form.Controls("EscalationButton" & n).BackColor = Def_Color_Red
                        ElseIf Sheets(k).Cells(j, Def_Col_Criticality).Value = "C2" Then
                            Escalation_Management_Form.Controls("CommandButton" & n).BackColor = Def_Color_Orange
                            Escalation_Management_Form.Controls("EscalationButton" & n).BackColor = Def_Color_Orange
                        ElseIf Sheets(k).Cells(j, Def_Col_Criticality).Value = "C3" Then
                            Escalation_Management_Form.Controls("CommandButton" & n).BackColor = Def_Color_Green
                            Escalation_Management_Form.Controls("EscalationButton" & n).BackColor = Def_Color_Green
                        ElseIf Sheets(k).Cells(j, Def_Col_Criticality).Value = "C4" Then
                            Escalation_Management_Form.Controls("CommandButton" & n).BackColor = Def_Color_Cyan
                            Escalation_Management_Form.Controls("EscalationButton" & n).BackColor = Def_Color_Cyan
                        Else
                            Escalation_Management_Form.Controls("CommandButton" & n).BackColor = Def_Color_Blue
                            Escalation_Management_Form.Controls("EscalationButton" & n).BackColor = Def_Color_Blue
                        End If
                        
                        n = n + 1
                    Else
                        If Sheets(k).Cells(j, Def_Col_SR_Closed).Value = Empty Then
                            Nb_SR_custo = Nb_SR_custo + 1
                            Escalation_Management_Form.Controls("EscalationButton" & n - 1).Caption = "(" & Nb_SR_custo & ")"
                        End If
                    End If
                End If
            End If
        Next j
    Next k

End Sub

Private Sub CommandClearEscalationHandling_Click()
  Dim i, j, k As Integer
    For i = 1 To 30
        Escalation_Management_Form.Controls("CheckBox" & i).Value = False
    Next i
    
    For k = 2 To Worksheets.Count
    
        For j = 2 To Sheets(k).Cells(65536, 1).End(xlUp).Row
            If Not Sheets(k).Rows(j).Hidden Then
                If Sheets(k).Cells(j, Def_Col_End_Customer).Value <> Empty Then
                        Sheets(k).Cells(j, Def_Col_SR_Handled) = 0
                        Sheets(k).Cells(j, Def_Col_Escalation_Updated) = 0
                End If
            End If
        Next j
    Next k
 
    ActiveWorkbook.Save
End Sub

Private Sub Command_FiltreClosedSR_Click()
  Dim k As Integer
  Dim Rep As Long
  

        Rep = MsgBox( _
        "You have decided to Hide (Remove) all: " & VBA.Chr(10) & _
        "Escalation SRs and Technical SRs" & VBA.Chr(10) & _
        "which have been marked as Closed !" & VBA.Chr(10) & _
        " " & VBA.Chr(10) & _
        "This means that the selected SRs have been for " & VBA.Chr(10) & _
        " - Technical SR: ----> Closed / Set in Custo. Val." & VBA.Chr(10) & _
        " - Escalaltion SR: --> Closed ! " & VBA.Chr(10) & _
        " " & VBA.Chr(10) & _
        "Do you want to hide these SRs ? " & VBA.Chr(10) _
        , vbYesNo + vbQuestion, "mDF XLpages.com")
        If Rep = vbYes Then
                ' ---------------------------------------------------------------------------------------------
                ' Hide only if Column "Def_Col_Escalation_Closed" is filled with a date !
                ' ---------------------------------------------------------------------------------------------
            For k = 2 To Worksheets.Count
                Sheets(k).Select
                Range("A1").AutoFilter Field:=Def_Col_Escalation_Closed_COLUMN_NB, Criteria1:="=", Operator:=xlFilterValues
            Next k
            
            Command_Sort_SR_Criticality_Click
        End If

End Sub

Private Sub Command_Sort_SR_Criticality_Click()
  Dim k As Integer

    For k = 2 To Worksheets.Count
        Sheets(k).Select
                ' ---------------------------------------------------------------------------------------------
                ' Will sort by Customer Name  / Criticality !
                ' ---------------------------------------------------------------------------------------------
        Range(Def_Col_Criticality & "1").Select
        Selection.Sort Key1:=Range(Def_Col_Criticality & "1"), Order1:=xlAscending, OrderCustom:=1, Header:=xlYes, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
        Range(Def_Col_End_Customer & "1").Select
        Selection.Sort Key1:=Range(Def_Col_End_Customer & "1"), Order1:=xlAscending, OrderCustom:=1, Header:=xlYes, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    Next k
       
    ActiveWorkbook.Save
    UserForm_Initialize

End Sub

Private Sub CommandButtonClose_Click()
    Unload Escalation_Management_Form
End Sub

Private Function get_SheetLine(tmp As String) As Variant
   Dim arr(2) As Variant
   Dim j, k, stoploop As Integer
   
    stoploop = 0
    For k = 2 To Worksheets.Count
        For j = 2 To Sheets(k).Cells(65536, 1).End(xlUp).Row
            If Not Sheets(k).Rows(j).Hidden Then
                If Sheets(k).Cells(j, Def_Col_End_Customer).Value = tmp Then
                    arr(0) = k
                    arr(1) = j
                    stoploop = 1
                    Exit For
                End If
            End If
        Next j
        If stoploop = 1 Then
           Exit For
        End If
    Next k
  get_SheetLine = arr
   
End Function

'' *****************************************************************************************
''
''                                       BUTTONS
''
'' *****************************************************************************************

'' *****************************************************************************************
''
''                                 ACCESS TO INDIVIDUAL SR BUTTON
''
'' *****************************************************************************************
Private Sub EscalationButton1_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton1.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton2_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton2.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton3_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton3.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton4_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton4.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton5_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton5.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton6_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton6.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton7_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton7.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton8_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton8.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton9_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton9.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton10_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton10.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton11_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton11.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton12_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton12.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton13_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton13.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton14_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton14.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton15_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton15.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton16_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton16.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton17_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton17.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton18_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton18.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton19_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton19.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton20_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton20.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton21_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton21.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton22_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton22.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton23_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton23.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton24_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton24.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton25_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton25.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton26_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton26.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton27_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton27.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton28_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton28.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton29_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton29.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub
Private Sub EscalationButton30_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton30.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Entry_Form.Show
End Sub

'' *****************************************************************************************
''
''                                 ACCESS TO ESCALATION SR BUTTON
''
'' *****************************************************************************************

Private Sub CommandButton1_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton1.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton2_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton2.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton3_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton3.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton4_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton4.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton5_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton5.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton6_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton6.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton7_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton7.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton8_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton8.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton9_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton9.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton10_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton10.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton11_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton11.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton12_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton12.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton13_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton13.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton14_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton14.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton15_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton15.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton16_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton16.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton17_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton17.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton18_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton18.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton19_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton19.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton20_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton20.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton21_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton21.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton22_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton22.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton23_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton23.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton24_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton24.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton25_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton25.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton26_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton26.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton27_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton27.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton28_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton28.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton29_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton29.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
Private Sub CommandButton30_Click()
  Dim SheetLine As Variant
    SheetLine = get_SheetLine(Escalation_Management_Form.CommandButton30.Caption)
    Sheets(SheetLine(0)).Select
    Cells(SheetLine(1), 1).Select
    Escalation_Management_Status.Show
End Sub
